' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~u q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ) 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompn` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--& W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*Uf&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hizݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥ~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:ƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^WER STATEMENTS PER"&$b " LINE."F$l :"ERR HOLD FILE IN USE"r$v " ONLY ONE PROGRAM MAY BE IN THE"$ " HOLD FILE AT A TIME."$ 3860$ TT)"OTHER MESSAGES"PT)"PAGE 13"$ $ "LIMITED MEMORY, MAY DESTROY PROGRAM" % "CON"# :" TO FIX USE"@#& " * SMALLER INCREMENT OR"l#0 " * DIFFERENT FIRST LINE NUMBER"#: :"ERR LINE TOO LONG"#D " RENUMBERING WOULD CAUSE A LINE TO"#N " BE LONGER THAN 239 CHARACTERS."$X :" TO FIX USE FEORE MEMORY THAN IS AVAILABLE."(" 3860O" TT)"ERROR MESSAGES"PT)"PAGE 12"U" y" "ERR DUPLICATE LINE NUMBERS"" " ONE OF THE UNCHANGED LINE NUMBERS"" " WOULD EQUAL ONE OF THE NEW LINE"# " NUMBERS IF RENUMBER CONTINUED.999.";'! :"ERR NO LINES IN RANGE"T! " THIS INDICATES THAT NOTHING WAS"! " CHANGED BECAUSE THE SPECIFIED"! " RANGE OF LINES WAS EMPTY."! :"ERR OUT OF MEMORY"! " OCCURS WHEN AN OPERATION REQUIRES"" " M ONE OF THE PARAMETERS WAS LARGER"= T " THAN 63999."_ ^ :"ERR LINE INCREMENT = 0" h " THIS IS DISALLOWED." r :"ERR LINE INCREMENT TOO LARGE" | " THE INCREMENT WILL CAUSE A LINE"! " TO BE NUMBERED GREATER THAN 63 & MERGE RETURNS THE "? " PROGRAM ON HOLD TO MEMORY"U :"ERR SYNTAX" " THE FIRST LETTER OF YOUR COMMAND" " OR PARAMETER WAS INVALID."" 3860, TT)"ERROR MESSAGES"PT)"PAGE 11"6 @ "ERR > 63999"$ J " -"( "EXPLANATORY. ERRORS WILL STOP"U "EXECUTION BEFORE ANY CHANGES ARE MADE"r "TO THE BASIC PROGRAM." :"ERR NO PROGRAM IN MEMORY" " THIS OCCURS IF YOU TRY TO RE-" " NUMBER WITH NO PROGRAM IN MEMORY." :" *Z " BY COMMAS, ','"Hd " * MULTIPLE PARAMETERS CAN BE IN ANY"Zn " ORDER"x " * A COMMA MUST BE FOLLOWED BY A" " PARAMETER LETTER" 3860 TT)"ERROR MESSAGES"PT)"PAGE 10"  " MOST ERROR MESSAGES ARE SELFSET UP RENUMBER"# "PARAMETERS."S( :" * PARAMETERS ARE DECIMAL NUMBERS IN"z2 " THE RANGE OF 0 TO 63999"< " * IF NO NUMBER FOLLOWS E,F,I,OR S"F " THEN THE PARAMETER IS SET TO 0"P " * MULTIPLE PARAMETERS ARE SEPARATED"COMMAND ARE IGNORED" 3860C TT)"INPUT SYNTAX"PT)"PAGE 9 "I x " THE FIRST LETTER AFTER '&' MUST BE" "C,E,F,H,I,M,OR S" :" C,H,AND M EXECUTE IMMEDIATELY." "THE REST OF THE LINE IS IGNORED." :" E,F,I,AND S (t " I - LINE NUMBER INCREMENT"I~ " S - START OF RANGE"h " E - END OF RANGE" :"COMMAND LETTERS" " M - MERGE" " H - HOLD" " C - CONVERT" :" EXTRA LETTERS AND SPACES AFTER" "A PUT SYNTAX"PT)"PAGE 8 ". K8 " THE FIRST CHARACTER OF ANY INPUT"_B "MUST BE '&'."L :" RENUMBER / MERGE ONLY RECOGNIZES"V "THE FOLLOWING SINGLE CHARACTER COMMANDS"` :"PARAMETER LETTERS"j " F - FIRST NEW LINE NUMBER":" * MERGING WITH NO PROGRAM IN"M" MEMORY RESTORES THE HOLD FILE"m:" CONVERT":"& CONVERT":" WILL CONVERT AN RAM APPLESOFT" "PROGRAM TO RUN WITH A ROM CARD AND" "VICE VERSA." 3860$ TT)"IN/" MERGE WILL COMBINE THE HOLD FILE"\"WITH THE PROGRAM CURRENTLY IN MEMORY.":" * LINE NUMBERS ARE ARRANGED IN"" ASCENDING ORDER":" * DUPLICATE LINE NUMBERS WILL BOTH"" APPEAR, HOLD VERSION SECOND"#b@Ll  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵Y,L34"# D$;"WRITE INVENTORY,R0"k THE RECORD LENGTH AND NUMBER OF OBJECTS ARE WRITTEN ON RECORD #0.y 34","I1 THE INVENTORY INFORMATION IS NOW WRITTEN ONTO THE FILE. J1I1 D$;"WRITE INVENTORY,R";J IT$(J)","BR$(J)","MN$(J)" FIT$(50),BR$(50),MN$(50),Q(50)N PD$(4): D$ IS THE CONTROL-D CHARACTER Z THE ITEMS, BRAND NAMES, MODEL NUMBERS, AND THE NUMBER OF ITEMS ARE READ IN. dI150 nIT$(I),BR$(I),MN$(I),Q(I) xIT$(I)"DONE"140 I D$;"OPEN INVENTORH TO WRITE WAREHOUSE INVENTORY INFORMATION ON A RANDOM-ACCESS FILE EACH RECORD ON THE FILE WILL CONTAIN THE FOLLOWING FIELDS:  ITEM NAME -- IT$( BRAND NAME --BR$2 MODEL NUMBER -- MN$< NUMBER OF ITEMS -- Q IVE NUMBERS"4 F"THERE ARE ";N;" NEGATIVE NUMBERS"U P 7,-5,20,13,-11,-35,28,9999 TW: COUNTS THE NUMBER OF NEGATIVE AND POSITIVE NUMBERS_ PRINTS OUT NUMBER OF EACH TYPE P=# POSITIVE NUMBERS N=# NEGATIVE NUMBERS P0N0SS999956(S0PP12S0NN17208: <"THERE ARE ";P;" POSITT"; -(A$-2(A$)3Ā--<(A$)2739303-F9-PC-Z1000I-dl-n20:"":20:"RUN RENUMBER":20:"RUN RENUMBER":$"2,"CAN USE THIS MEMORY FOR THEIR OPERATION.";_,"THEREFORE FOR MAXIMUM USEABLE MEMORY,","USE THE HOLD FILE ONLY WHILE MERGING","PROGRAMS.",3860,1000, 536443710 4APR80, ,24-"PRESS SPACE FOR MORE, ESC TO RESTARRENUMBER IS PROBABLY INTACT."L+:" THE INTENDED USE FOR MERGE IS TO"x+"BE ABLE TO INSERT SUBROUTINES INTO A"+"PROGRAM FROM A SUBROUTINE LIBRARY."+:" THE 'HOLD' FILE IS A SEPARATE PART","OF MEMORY. NEITHER BASIC NOR RENUMBERUSERS, DO NOT USE 'MAXFILES'"I*8"AFTER RENUMBER IS IN, DOS WILL WRITE"_*B"OVER RENUMBER."i*L3860*VTT)"NOTES"PT)"PAGE 16"*`*j" TO SEE IF RENUMBER IS OK, TYPE"*t:"& INC 0"*~:" IF YOU GET 'INCREMENT = 0' ERROR,"+""RENUMBER WILL RETURN TO BASIC COMMAND"9) "MODE, ']'."i)::" RENUMBER IS ABOUT 2K BYTES LONG")::" RENUMBER MAY TAKE UP TO ONE")"MINUTE TO RENUMBER OR MERGE A 16K BASIC")$"PROGRAM. DO NOT HIT 'RESET'!!!"*.::" DISK IF X=0 THEN 250'"( ( J( :" RENUMBER WILL NOT RENUMBER ANY"w( "REFERENCE THAT IS A PART OF A REMARK."( 3860( TT)"NOTES"PT)"PAGE 15"( ( " RENUMBER COMMANDS MAY BE PUT IN"( "BASIC PROGRAMS, BUT ON EXECUTION "') ES"PT)"PAGE 14"'> ='H " RENUMBER FIXES LINE NUMBER"d'R "REFERENCES IN THESE STATEMENTS;"r'\ A10:B20'f :A)"GOTO"B)"ON...GOTO"'p :A)"GOSUB"B)"ON...GOSUB"'z :A)"DEL"B)"LIST"' :A)"RUN"B)"THEN"( :" 'THEN' AS IN '7 MBER AND RETURNS TO BASIC"H& :"PROGRAM ON HOLD, USE '&M' TO RECOVER"t& :" THIS IS DISPLAYED WHENEVER A"& " PROGRAM IS PUT INTO THE HOLD FILE."& " TYPING '& MERGE WILL RECOVER"& " THE PROGRAM."&* 3860'4 TT)"NOTTINUE (Y/N)?";% :" THIS OCCURS WITH SMALL SYSTEMS"i% " OR LARGE PROGRAMS. THE RENUMBER"% " MAY OR MAY NOT SUCCEED."% :" * PROGRAM DESTROYED IF IT FAILS"% :" * ANY REPLY BUT 'Y' CANCELS"& " RENU:::"THE NEW ITEM HAS BEEN ADDED TO THE FILE":100@DOPEN INVENTORY,L34"/ D$;"READ INVENTORY,R0"8*L,Ny4 THE NUMBER OF ITEMS (N) IS UPDATED AND WRITTEN ON THE FILE>NN1HD$;"WRITE INVENTORY,R0"RL","N\D$;"WRITE INVENTORY,R";NfIT$","BR$","MN$","QpD$;"CLOSE INVENTORY"1z'S : MAXIMUM 4 DIGITS.";Q^ THIS ALLOWS THE USER TO CORRECT INFORMATION IF NECESSARY"DO YOU WISH TO CHANGE ANY OF THIS INFORMATION";V$(V$,1)"Y"ī660  THE INFORMATION ABOUT THE NEW APPLIANCE IS ADDED TO THE FILE.D$;". :::T"ENTER THE ITEM NAME: MAXIMUM 10 CHARACTERS. DO NOT USE COMMAS.";]IT$"ENTER THE BRAND NAME : MAXIMUM 10 CHARACTERS.";BR$"ENTER THE MODEL NUMBER : MAXIMUM 6 CHARACTERS.";MN$"ENTER THE QUANTITY OF ";IT$;"D$;"CLOSE INVENTORY"lb:::"THE QUANTITY OF ";IT$(I);"S HAS BEEN CHANGED ON THE FILE - YOU NOW HAVE ";Cul100v A NEW ITEM IS ADDED TO THE INVENTORY THIS BLOCK ALLOWS THE USER TO ADD INFORMATION ON A NEW KIND OF APPLIANCE TO THE INVENTORYUSE" QCQ(I)Qd&C0ĺ"THERE WERE ONLY ";Q(I);1);IT$(I);"S IN THE WAREHOUSE.":::5100 THE UPDATED INFORMATION IS WRITTEN ONTO THE RECORD:D$;"OPEN INVENTORY,L34"DD$;"WRITE INVENTORY,R";INIT$(I)","BR$(I)","MN$(I)","CXAT WHEN IT IS ADDED TO THE CURRENT QUANTITY THE CORRECT TOTAL WILL RESULT.~"WERE ";IT$(I);"S REMOVED FROM THE WAREHOUSE "A$(A$,1)"Y"ĺ"HOW MANY "IT$(I);"S WERE REMOVED ";:Q:QQ1:540"HOW MANY ";IT$(I);"S WERE ADDED TO THE WAREHO) IY ::"INPUT THE RECORD # FOR WHICH YOU WISH TO CHANGE THE QUANTITY OF ITEMS"` I  THE USER IS ASKED IF ITEMS WERE REMOVED FROM THE WAREHOUSEJ IF ITEMS WERE REMOVED THE NUMBER IS REQUESTED AND CONVERTED TO A NEGATIVE QUANTITY SO TH8  "DONE","NONE","NONE",0= ""FILE HAS BEEN PROCESSED"C , ","Q(J) J( D$;"CLOSE INVENTORY"H "STOVE","GE","T4302",1901q "FREEZER","AMANA","M14317",1002  "WASHER","WHIRLPOOL","WB4I2",135  "RADIO","SONY","SB4C",1118  "DONE","NONE","NONE",0 ""FILE HAS BEEN PROCESSED" ,1) ZP$(I)  I DD$(I),CT$(I),ST$(I),ZP$(I)! ZI9 dD$;"CLOSE ADDRESS"f i::"PRESS ANY KEY TO CONTINUE":A$:: n NOW TO PRINT THE INFORMATION ONTO THE SCREEN xI13 "THE NAME & ADDRESS IN RECORD ";I;" IS" NM$(I) RD$(I) CT$(I) ST$(I!: TO READ THE INFORMATION STORED IN THE FILE ADDRESSbNM$(3),RD$(3),CT$(3),ST$(3),ZP$(3)zD$(4): CONTROL-D( READ THE NAMES AND ADDRESSES FROM RECORDS 1 TO 32D$;"OPEN ADDRESS,L87"<I13FD$;"READ ADDRESS,R";I PNM$(I),R   ; PRINTS OUT WHETHER A NUMBER IS POSITIVE OR NEGATIVEBSPS9999ijt(S0ĺS;" IS A POSITIVE NUMBER"2S0ĺS" IS A NEGATIVE NUMBER"<20F 7,-5,20,13,-11,-35,28,9999P ALL LET YOU KNOW." ( I13000:Iu "IF YOUR ANSWER IS INCORRECT I WILL TELL YOU WHAT IT SHOULD HAVE BEEN." I13000:I E15 10 "PLEASE ENTER TWO NUMBERS TO BE ADDED."  "REMEMBER TO SEPARATE YOUR NUMBERS iI11500:I n"FIRST I WILL ASK YOU WHAT TWO NUMBERS YOU WOULD LIKE TO ADD. PLEASE SEPARATE YOUR NUMBERS WITH A COMMA." o sI13000:I x"NEXT I WILL ASK YOU FOR YOUR ANSWER." } I11500:I "IF YOUR ANSWER IS CORRECT I WI 12<"ASSIGNMENT 2, LEE HILL, JUNE 27, 1983"M#I11500:IS(Z25<"HI! PLEASE TELL ME YOUR NAME."A::FA$PZ6_I12000:Id"HELLO ";A$;"!"ef"WE ARE GOING TO DO FIVE MATH PROBLEMS"g + FULL SCREEN LOW RESOLUTION GRAPHICS3:;13I(16302,0U2Y047a<0,39YhFYyPT12000:TZ16301,0d:"PRESS ANY KEY TO CONTINUE";:Z$::Y^) TO GENERATE INTEGERS FROM 5 TO 205I115HX((1)16)5O(XV2I\< I HOW A GOSUB WORKS, MAIN PROGRAMS"YOU ARE NOW IN THE MAIN PROGRAM"\(1002"YOU ARE NOW BACK IN THE MAIN PROGRAM"<999d GOSUB1n5);"YOU ARE NOW IN GOSUB1"x CLOSE ADDRESS" TEN IN RECORD 0* D$;"OPEN ADDRESS,L87"E D$;"WRITE ADDRESS,R0"M 87 THE NAMES AND ADDRESSES WILL NOW BE WRITTEN ONTO RECORDS 1 THROUGH 3 I13 D$;"WRITE ADDRESS,R";I NM$(I)","RD$(I)","CT$(I)","ST$(I)","ZP$(I) I D$;"E: "; PNM$(I)8 Z"STREET: ";D dRD$(I)_ n"CITY: ";k xCT$(I) "STATE:(2 LETTERS) "; ST$(I) "ZIP: "; ZP$(I) I THE FILE ADDRESS IS OPENED AND THE RECORD LENGTH IS WRIT] TO STORE THE RECORD LENGTH IN RECORD #0, AND TO ADD 3 NAMES AND ADDRESSES TO THE FILENM$(3),RD$(3),CT$(3),ST$(3),ZP$(3)D$(4)( THE 3 NAMES AND ADDRESSES ARE INPUT2I13<:"INPUT NAME AND ADDRESS FOR PERSON # ";I F"NAM    ( FIND POSITIVE NUMBERS IN A GROUP/S>S999970b(S0ĺS;" IS A POSITIVE NUMBER"j220< 7,-5,20,13,-11,-35,28,9999F I11500:I J$"A"İ21002J$"B"İ2400MJ$"A"J$"B"ī1200W::v"PLEASE READ THIS STORY.":::5"WE LIKE TO SEE THE PARROTS. THEY"HAVE FUNNY BEAKS. THEY SAY FUNNY WORDS.",:::6"WHAT IS THE "A. POPCORN! POPCORN!"&(::1902"OR";<::9WF"B. LAD EATS POPCORN"cP::11wZ"PLEASE TYPE";d:" A ";n:"OR";x:" B.":9:J$:10:5J$"A"J$"B"ĺ"YOU MUST TYPE ";::"A";::" OR ";::"B":." ::57"PENNY SAID, ''THE POPCORN IS GOING"M:"ALL ABOUT!''"|:5:"THE MAN YELLED,''THE MACHINE CAN'T":"STOP. HAVE ALL THE POPCORN YOU CAN":"EAT.''":: " WHAT IS THE BEST NAME FOR THIS STORY?"::9PE";8:" A ";B:"OR";,L:" B."9V:9:I$FX:10:5ZI$"A"I$"B"ĺ"YOU MUST TYPE ";::"A";::" OR ";::"B":\I11500:I`I$"A"İ2100jI$"B"İ2400oI$"A"I$"B"ī900::"PLEASE READ THIS STORY"FOLLOWS THE ANIMAL TRACKS. THE TRACKS"0I"LEAD HIM TO FOOD."U:::" WHAT IS THE BEST NAME FOR THIS STORY?":::9"A. A FOX LOOKS FOR FOOD"::19"OR"::9"B. THE DEN"$::11."PLEASE TY:7:5K.H$"A"H$"B"ĺ"YOU MUST TYPE ";::"A";::" OR ";::"B":\0I11500:In4H$"B"İ2100>H$"A"İ2400CH$"A"H$"B"ī600::"PLEASE READ THIS STORY.":::5"THE FOX PEEPS FROM HIS DEN. HE*ITH IT'S COLOR NUMBER BEING 2 MORE THAN IT WAS: X039F Y039S X,Y)2\ X,Yc Yj X 24:"PRESS ANY KEY TO CONTINUE";:Z$:: YF TO SCAN THE SCREEN AND ADD 2 TO THE COLOR NUMBER AT EACH POINTN:m 20 RED STRIPES ARE DRAWNt(12Y0382<0,39YFYP 20 YELLOW STRIPES ARE DRAWNZ13dY1392n0,39YxY. EACH POINT IS REPLOTTED W  b/ TO GENERATE RANDOM INTEGERS FROM 0 TO 9;I115LX((1)10)S(XZ2I`< I RINTED ON THE SCREEN0 P::"THE NAME IS ";NM$P Z"THE PHONE NUMBER IS ";PH$V dDWU TO READ THE NAME AND PHONE NUMBER FROM THE FIRST RECORD OF THE FILE PHONELISTmD$(4): CONTROL-DD$;"OPEN PHONELIST,L44"(D$;"READ PHONELIST,R1"2NM$,PH$<D$;"CLOSE PHONELIST" F AFTER THE FIRST RECORD HAS BEEN READ IT IS P  AREA OF A SQUARE :G"SIDE OF SQUARE","AREA OF SQUARE"MTN\C1i(CN100p2S}<S,(S2)FCC1K40L 6P 4,7,10,13,16,19d I 800 2500I13000:I54 CORRECT RESPONSE;9I>13: HATVC16,227cH16,228pM16,229~R14,2410W11: HEAD\16,2211a14,2412f13,2513k12,2614p12,2615u12,2616z12,261712,2618 BOUT FAR AWAY::11-"PLEASE TYPE";;:" A ";H:"OR";U:" B."b:8:L$o:10:5L$"A"L$"B"ĺ"YOU MUST TYPE ";::"A";::" OR ";::"B":I11500:IL$"A"İ2100L$"B"İ2400L$"A"L$"B"ī1TELL ME A STORY ABOUT"4D:"RACCOONS,''SAID PAT."_N:5:"''TELL ME A STORY ABOUT DOGS,''rX:"SAID KIM."b::"WHAT IS THE BEST NAME FOR THIS STORY?"l::8v"A. A STORY ABOUT ANIMALS":19"OR":8 "B. A STORY A TYPE ";::"A";::" OR ";::"B":5I11500:IGK$"B"İ2100YK$"A"İ2400tK$"A"K$"B"ī1500~::"PLEASE READ THIS STORY."::5&"''DAD, TELL ME A STORY ABOUT"0:"RABBITS,'' SAID SAM."::5:"''MOTHER, BEST NAME FOR THIS STORY?"(@:::10?J"A. ZOO ANIMALS"KT::19U^"OR"ah::10}r"B. PARROTS ARE FUNNY"|::11"PLEASE TYPE";:" A ";:"OR";:" B.":10:K$:10:5$K$"A"K$"B"ĺ"YOU MUSTSS ANY KEY TO CONTINUE";:Z$::& Y2 0,39Y< A SLIGHT PAUSE AFTER EACH LINE IS DRAWNL I1100:IS YZ J A BLUE SQUARE IS DRAWN IN THE TOP LEFT CORNER 6 X019 0,20X A SLIGHT PAUSE AFTER EACH LINE IS DRAWN I1100:I X 24:"PRE'# TO DRAW A PICTURE OF A FLAG+:O THE SCREEN IS FILLED WITH REDV(1b2Y038n<0,39YF A SLIGHT PAUSE AFTER EACH LINE IS DRAWNPI1100:IZYd SIX WHITE STRIPES ARE DRAWNn15xJ1112AJ3 YAA   r/ TO GENERATE RANDOM INTEGERS FROM 0 TO 9;I115FX(1)Q(YX10\2Z(Y)c<ZjFIpP X ONTO RECORD #1 OF THE FILE PHONELISTB ZD$;"OPEN PHONELIST,L44"_ dD$;"WRITE PHONELIST,R1"p nNM$;",";PH$ xD$;"CLOSE PHONELIST" F TO WRITE A NAME AND PHONE # ON RECORD #1 OF THE FILE PHONELISToD$(4): D$ IS EQUATED TO CONTROL D THE NAME AND PHONE NUMBER ARE INPUT("NAME: ";2NM$<"PHONE #: ";FPH$% P NOW THE NAME AND PHONE # ARE WRITTEN  AREA OF A SQUARE :G"SIDE OF SQUARE","AREA OF SQUARE"MUC1b(C6100i2Sv<S,(S2)FCC1K40P 4,7,10,13,16,19d 9d N  GET HERE FAST.''" ::J " WHAT IS THE BEST NAME FOR THIS STORY?"X :::12k "A. THE HEATw ::19 "OR" ::12 "B. THE BIG FIRE" ::11 "PLEASE TYPE"; :" A "; :"OR"; :" B." *:12:H$,0:I G$"A"İ2100( G$"B"İ2400B G$"A"G$"B"ī300L X::k b"PLEASE READ THIS STORY."x l:::5 v"KEN SAID, ''LOOK AT THE FIRE! YOU  "CAN FEEL THE HEAT FROM HERE! I KNOW THE  "FIRE TRUCK WILLBOOTS AND BIG FEET ::19( "OR"3 ::7M "B. RED SNOW BOOTS"Y ::11m "PLEASE TYPE";{ :" A "; :"OR"; :" B." :7:G$ :10:5 G$"A"G$"B"ĺ"YOU MUST TYPE ";::"A";::" OR ";::"B": I1150 6"PLEASE READ THIS STORY."+ @:::5O J"SAL SAID, ''MY BOOTS ARE TOO"U T ^"LITTLE. THEY DON'T FIT MY BIG FEET. h r"BIG FEET NEED BIG BOOTS.'' |::: " WHAT IS THE BEST NAME FOR THIS STORY?" :::7 "A. LITTLE 24:6 "PRESS ";/ :" SPACE BAR ";C :" TO GO ON."K W$W :8:5{ "PLEASE TYPE YOUR FIRST NAME." :5 A$ ::5 "IT'S NICE TO MEET YOU ";A$;"!" ::5 "WHAT IS YOUR LAST NAME?" :5 B$ ,: MAKE MI5$D$"": CTRL D7(D$;"OPEN MI5"J2D$;"READ MI5"Q<N[ANN1oFD$;"CLOSE MI5"~d GREETINGn::10:5x"HI! I'M YOUR FRIENDLY COMPUTER""READY TO HELP YOU PRACTICE READING AND""THINKING."                  " TO DRAW A RANDOM BAR GRAPH*:6I039D(Y(1)40Q2(1)16]<Y,39IdFIP24:"PRESS ANY KEY TO CONTINUE";:Z$:: I L% TO INTRODUCE THE INT FUNCTION0X6.53;Y(X)D(X,YJ2 X B C J+ D$;"CLOSE LPGRADES"A D$;"CLOSE LPNEW"V "COPY COMPLETE"\ $^* COPY FILE LPGRADES INTO FILE LPNEW>D$"": CTRL-DVD$;"OPEN LPGRADES"n(D$;"READ LPGRADES"u2X<D$;"OPEN LPNEW"FD$;"WRITE LPNEW"PXdJ1XiD$;"READ LPGRADES"nN$,A,B,CD$;"WRITE LPNEW"N$A  AREA OF A SQUARE :G"SIDE OF SQUARE","AREA OF SQUARE"MTSc(S999990p<S,(S2)xF30P 4,7,10,13,16,19R 9999Z 14,242815,2329(16,2230617,2131T0: HATBAND,NOSE,BUTTONSa17,219l 19,16w 19,17 19,28 19,30 :10$ "VERY GOOD ";A$;"!") I12000:I. :` WRONG RESPONSEj :5:9t "SORRY ";A$;", T12,261912,2620'13,2521514,2422C16,2223Q17,2124_18,2025m18,2026{2: EYES17,1321,131: MOUTH16,1922,1916,172021,222018,202112: SHIRT13,2527 11,22 12,25 10,29%  A5,1137 9,38 6% 6,7342 35,373? 5,1135L 4,1036Y 5,1137c 9,38s A1250:Az 9 26,286 &30,326 023,297 :25,318 D23,259 N9,27 X7,31 ]6 b8,20 l4,24 v3,27 4,30 230 17,2931 27,2829. 32,33295 6B 0,3933O "0,3934\ ,0,3935i 60,3936v @0,3937 J0,3938 T0,3939 ^8 h30,3925 r30,3934 |25,3930 9 6,734 35,373 5,1135 4,1036 ' 722,2310'(21,112224,11=<20,12HF25,12SP19,13^Z26,13ld14,2327wn26,21x20,22251128,1312,152912,163027,1927,211228,1928,2117,2929 17,2    * TO DISPLAY A SHAPE ON A BACKGROUND2:91E(Y039Q20,39Ya<I1100:IhFYoP6|ZX1029d10,29XnI1100:IxX24:"PRESS ANY KEY TO CONTINUE";:Z$:: fA THIS PROGRAM GENERATES 10 RANDOM NUMBERS BETWEEN 0 AND 1MI110W(1)^(Id2 I LPGRADES"" D$;"WRITE LPGRADES") XC D$;"APPEND LPGRADES"\ D$;"WRITE LPGRADES"d N$k Ar By C D$;"CLOSE LPGRADES" 70 "FILE PROCESSED" ' ADD NEW GRADES TO FILE LPGRADES;D$"": CTRL-DSD$;"OPEN LPGRADES"k(D$;"READ LPGRADES"r2X<D$;"CLOSE LPGRADES"FP"ENTER NAME OR STOP"ZN$dN$"STOP"230n"ENTER 3 GRADES"xA,B,CXX1 D$;"OPEN  AREA OF A SQUARE :G"SIDE OF SQUARE","AREA OF SQUARE"MTSa<S,(S2)iF30P 4,7,10,13,16,19Z 100DD$;"CLOSE MI5"'( FARWELL STATEMENT62 ::5:10_< "IT HAS BEEN FUN READING WITH YOU,"eF P A$;". HAVE A NICE DAY!"Z ::13::d "KEEP READING!"i 24:5n :"PRESS ";s :" SPACE BAR ";x :" TO START OVER."} W$ HAT WAS NOT THE "~ 7 "BEST NAME FOR THE STORY."C :::K 11d "KEEP PRACTICING !"u I14000:I{   FILE STUDENT RESPONSES  D$;"OPEN MI5" D$;"WRITE MI5" N D$;"APPEND MI5" D$;"WRITE MI5" ĠҍΠ ) TO FILL THE SCREEN WITH ONE COLOR1:913E(Y039Q20,39Ya<I1100:IhFYP24:"PRESS ANY KEY TO CONTINUE";:Z$::ZY N1 JI1N' B$(I)B$(J)2204 C$B$(I)D B$(I)B$(J)Q B$(J)C$X J_ I{ PRINTS SORTED STRINGS : "LIST OF ALPHABETIZED WORDS"  I1N B$(I) "I , )3 Z INPUTS THE WORDS ACCORDING TO N FROM LINE 40g d"PLEASE INPUT A WORD AFTER EACH QUESTION MARK"r nI1N} xB$(I) I SORTS EACH STRING BY COMPARING IT TO THE NEXT STRING STRING SWITCH PLACES IF NECESSARY (LINES 190-210) I1% ALPHABETIZES UP TO 20 STRINGS1B$(20)\"NUMBER OF WORDS TO BE INPUT,MAX 20";e(N:2 TESTS TO SEE IF NUMBER OF STRINGS EXCEED THE MAX NUMBER<N20100F"TWENTY WORDS IS THE MAXIMUM NUMBER OF WORDS THAT YOU CAN INPUT" P30  "AVERAGE"  J1X3 A(A(J)B(J)C(J))3@ N$(J),AG JM f "FILE IS PROCESSED"l ROCESSED" D Sn#N$(200),A(200),B(200),C(200)[ FIND GRADE AVERAGES FOR STUDENTS ON FILE LPGRADESoD$"": CTRL-DD$;"OPEN LPGRADES"(D$;"READ LPGRADES"2X<I1XFN$(I),A(I),B(I),C(I)PIxD$;"CLOSE LPGRADES": "NAME", F( READING A VALUE FROM A DATA LIST/S6S>( 4D2 UN1b#N1070o(N,(N2)z2NN1<35F 1 $(PI):::1900> :22:"I DON'T UNDERSTAND ";IN$:2700:40L 807:280R :p +** PARSE INSTRUCTIONS ** ,J1((IN$)1) 6(IN$,J,1)"."IN$(IN$,((IN$)J)):60 @J J40 ** DETERMINE QUANTITY ** J1(IN$) (IN$,J,1)I$"PD"DR1:300, I$"NT"T1:700:300G I$"TU"T0:800:300_ I$"HO"İ1600:300v I$"CL"İ1700:40 I$"FI"2000 I$"RS"İ3100 I$"ED"1800 I$"RA"ī3000 I$"QU"ĉ:: I$"IN"IG1:400:300 BP1ED$PI CREATE FILE MI5+D$"": CTRL D>D$;"OPEN MI5"S(D$;"DELETE MI5"f2D$;"OPEN MI5"z<D$;"WRITE MI5"F10P"CORRECT ANSWERS A,B,A,A,B,A"ZD$;"CLOSE MI5"dD?????????????"??'$$-----66>??NIIIII"$$$$$,----666666?+???????$$$$$$$$$??,%-,%-,%-,%-,%-,%-,%--.5-.5-.5-.5-.5-.5-.5=??666666666????$$$$$$????766666.----ۻ:??????????$$,----566??$@By$$$%%%%$$$$$$$$$$$,,,,,5555566666666666....666????????$$$%%%%$$$$$$$$$$$,,,,,5555566666666666....666????????$$$%%%%$$$$$$$$$$$,,,,,5555566666666666....666???????????????$$$$$$$$$??,-,%-,%-,%-,%-,%-,%-,-.5-.5-.5-.5-.5-.5-.5??666666666????7 TO DRAW A VERTICAL LINE USING THE VLIN FUNCTION?:G15T(3,1020224:"PRESS ANY KEY TO CONTINUE";:Z$::< Z  ALPHABETIZING TWO WORDS6"TYPE IN A WORD";>(A$[2"TYPE IN ANOTHER WORD";c<B$vFA$B$ĺA$,B$PA$B$ĺB$,A$Z A :' "FILE HAS BEEN PROCESSED"- I;"WRITE LPGRADES" UI1' ZJ1I12 dN$(J)< nA(J)F xB(J)P C(J)W Jp D$;"CLOSE LPGRADES" "SAM",87,80,93,"FRED",92,99,85 "WILLIAM",74,77,81 "JIMMY",81,90,77,"STOP",1,1,1 : "FILE HAS BEEN PROCESSED" #N$(100),A(100),B(100),C(100)U PROGRAM TO STORE NAMES AND GRADES ON A FILEbI1100|N$(I),A(I),B(I),C(I)(N$(I)"STOP"602I<D$"": CTRL-DFD$;"OPEN LPGRADES"GD$;"DELETE LPGRADES"HD$;"OPEN LPGRADES" SD$   8 THIS PROGRAM COUNTS TO 10 AND SQUARES THE NUMBER@:_"NUMBER","NUMBER SQUARED"emN1z#N1070(N,N22NN1<35F 27Ĺ16368,0:40, dI$"FD"İ400:500:300L nI$"BK"B1:400:500:300h xI$"RT"İ400:600:300 I$"LT"LE1:400:600:300 (IN$,1)">"1100 I$"RA"2705 I$"DO"1300 I$"//"D(C)D(C)1:1470 I$"PU"DR0:300 16400:::2800::800?(:FCFC1:FC25FC(1):FC0M*16368,0-22:"WHAT DO YOU WANT THE TURTLE TO DO? ";IN$2BP0:VC0:IV0:IC0:C0:285<IN$""40F(IN$,1)"."IN$(IN$,((IN$)1))PI$(IN$,2) ZKY(16384):KY1!!"""ōԴϴĵԹȍϴĶԹōϴıԹčϴĸԹōŮծϮIJԹijԹĮŮծϮIJԹIJԹĮŮծϮ˱ԹijԹĮȮծ˲ԹijԹĮč :I0239:I30+10I,010I,1592I9#3]$10,0239,0239,15910,15910,0l%9,09,159(Z$"BGVWBOBW":200:2Z$"LRIILRLI":200:<Z$"KNOTKGUT":200FI1(Z$)4(I1)5(Z$,I,1);:I:I9 TO DRAW A HORIZONTAL LINE USING THE HLIN FUNCTIONA:I15V(5,1120224:"PRESS ANY KEY TO CONTINUE";:Z$::< Z Zi) USING THE MID$ SUBSTRING FUNCTION=A$"SUMMERTIME"EA$R((A$,7)a2(A$,4,3)g< U ),(S(J)2) J. "FILE IS ALL PROCESSED"4 6; CALCULATE THE AREA OF A SQUARE USING DATA FROM FILERD$"": CONTROL-DfD$;"OPEN NUM1"z(D$;"READ NUM1"2I1100<S(I)FS(I)999990PIZD$;"CLOSE NUM1"d:n"SIDE","AREA OF SQUARE"xJ1I1 S(J  8 THIS PROGRAM COUNTS TO 10 AND SQUARES THE NUMBER@:_"NUMBER","NUMBER SQUARED"emN1x(N,N22NN1<N1040F 5    Šɵ ĠɵԠ ԠŠŠӠ!ΠŠ ȠΠ Π̠"ɵ DZ!DZ"ҠҠӠ ŠԠz"#dzǴǵǶǷǸǹ ǹ DZ DZ DZDZDZDzDz dz!Ǵ"ǵǶǷ Ǹ²³´µ ¶·DZ ͱ Ͳ ͳ ʹ͵Ͷ± ǵ Ƕ! Ƿ" Ǹ ǹ DZ DZ ³ ´ µ DZ Dz dz Ǵ ų ŴŵŶŷ±² ų Ŵ ŵ Ŷ ŷ ű Ų  Ե ű Ų ų Ŵ! ű" Ų вв в Ա Բ Գ Դ б б бвввв б!б"ббб б б гдежзийϠԠà2Ҡ ҠӠ'бвr USING RND(X) WHERE X<0*X(2)6"X= "XB(I110M2Y(1)Y<"Y= "Y`FIhP:pZ20  : I14@ IT$(I);12);BR$(I);24);MN$(I);31);Q(I)F M IS D IS OUTPUT IN TABULAR FORM" :S "ITEM";12);"BRAND";23);"MODEL";30);"QTY"[ :f I1N IT$(I);12);BR$(I);23);MN$(I);30);Q(I) I SDHER INFORMATION : "ITEMS";12);"BRAND";24);"MODEL";31);"QUANTITY"READ INVENTORY,R0"U FL,N: THE LENGTH AND NUMBER OF RECORDS IS READ FROM RECORD 0.` PI1N} ZD$;"READ INVENTORY,R";I dIT$(I),BR$(I),MN$(I),Q(I) nI xD$;"CLOSE INVENTORY" : "PRESS ANY KEY TO CONTINUE":A$ THE INFORMATION` TO READ THE WAREHOUSE INVENTORY FROM THE FILE AND OUTPUT THE INFORMATION IN TABULAR FORMIT$(50),BR$(50),MN$(50),Q(50)D$(4): D$ IS THE CONTROL-D CHARACTER( THE INVENTORY IS READ FROM THE FILE2D$;"OPEN INVENTORY,L34" <D$;"8 THIS PROGRAM LISTS COUNTING NUMBERS FROM 1 TO 10P AND THEIR SQUARESX:w"NUMBER","NUMBER SQUARED"N110(N,(N2)2N<" O:0 T" BASIC LEARNING PROGRAMS"8 ^:T c LOAD AND RUN RENUMBERm h(4)"EXEC EXECFILE"s r6LOAD  (768)0300o ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."y ,:: 6"W.A.C.C. VOLUME 1 APPLE DOS 3.3" @"DISK 2 : VERSION 1.02 : LEVEL GENERAL" J"COPYRIGHT 1982 BY UW - RIVER FALLS6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082 300  --NO CARD OR CAN'T RE804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9UMBER h(4)"EXEC EXECFILE"$ r24:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N n% -- DOS 3.3 HELLO  *,::Y6"W.A.C.C. VOLUME 1 APPLE DOS 3.3"@"DISK 2 : VERSION 1.02 : LEVEL GENERAL"J"COPYRIGHT 1982 BY UW - RIVER FALLS"O:T" BASIC LEARNING PROGRAMS"^: c LOAD AND RUN REN     I),MN$(I),Q(I) TI/ ^D$;"CLOSE INVENTORY"Y h INFORMATION FROM THE FILE IS LISTED_ r |"THE CURRENT INVENTORY ON FILE IS:"  "RECORD #";10);"ITEM";20);"MODEL";30);"QUANTITY"  I1N I;10);IT$(I);20);MN$(I);30);Q(ID":910 RE$"NEW"630U  THE QUANTITY OF AN ITEM IS TO BE CHANGED ON THE FILE  THE CURRENT CONTENTS OF THE FILE ARE READ D$;"OPEN INVENTORY,L34" "D$;"READ INVENTORY,R0" ,L,N 6I1N @D$;"READ INVENTORY,R";I JIT$(I),BR$( " ALREADY IN THE INVENTORY":J "STOP -- TO STOP THE PROGRAM"P } "ENTER UPDATE OPTION - NEW,OLD,OR STOP" RE$ BASED ON THE USER'S RESPONSE GO TO THE CORRECT BLOCK OF STATEMENTS RE$"STOP"ĺ"FILE IS PROCESSE0),Q(50) FD$(4)C P ASK THE USER TO ENTER THE TYPE OF UPDATEI ZQ d:q n"THE UPDATE OPTIONS ARE": x"NEW -- TO ADD A NEW ITEM TO THE" " INVENTORY": "OLD -- TO INCREASE OR DECREASE" " THE QUANTITY OF AN ITEM"'A * TO UPDATE THE WAREHOUSE INVENTORY T THE FOLLOWING UPDATES ARE POSSIBLE: INCREASE THE QUANTITY OF SOMETHING PRESENTLY IN THE WAREHOUSE( DECREASE THE QUANTITY OF AN ITEM2 ADD A NEW ITEM TO THE INVENTORY <IT$(50),BR$(50),MN$(5/ THIS PROGRAM LISTS THE ODD NUMBERS FROMO 1 TO 10 AND THEIR SQUARESW:v"NUMBER","NUMBER SQUARED"N1102(N,(N2)2N<)|cc]ĠĠΠa(à)QŠ)(4a(ҠԠŠĮ)5a(ŠӠš)6Q ;KM6c.@a(׮îӠ).Ja(ˠΠ̠))Ta(Ԡ٠נҠ)Ycc&^a(àǠŠĠԠŠ)a(̠Š͠ӠĮ),Q -KM6.cc)/a(Š)0c,1a(̠ŠàǠӧ),2a(ΠΠԠì)'3a(٠̠ԠΠΠΠ]]ƠŬĠ]2o a(ǠԠϠŠĩ)a(Ġìİ)]ŠԠŠq.?6~?r]ð_;]]ϠĠҠΧԠ]"`.?r$- #cccP$a(ed*ed+ed,eUsd-ed.ed/ed0ed1ed2ed3ed4ed5eUxd6ed7ehd8ed9ed:ed;ed<ed=ed>e}d?ed@e`M`.?r$e#dededeUddededededededededeUidededededeJd ed!ed"ed#eUnd$ed%ed&ed'e d(ed)D ]Ӡ] KM6(cc%2a(ŠԠŠ)F] P]ŠŠĠUZdededededeHdedededehU_d eHd ed ed ed ed     ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơe$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱv Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІșh0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^ DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTE0oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCAL               `$ PRINT OUT RECTANGLE OF STARS/K17:J15D("*";K2JQ<XFK^P KLINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0E TOO LONGINCREMENT = 0RL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO 'Lѥȥ񥰶NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LIN && &!ee)ei `hhLȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFeestsưƯsgůh尐giihijg` Lӆ Ԇ8stijRLghLABCՆ>ֆ?s&eee膝JJJJ)ŝƝ 0ȵƞढ़0 ,LƂLڂiiij8stijRLgh #Lѥȥ ݠ8埅ȱ嵩JJJJ)ŝƝLpƞߥ ,LLtRL LƞƠeEgiEh8iejegeheeȪi LT >ȥ Ȫ͆0 .ee'Lѥȥ񥰶L & &ghȱ y y;L ۥghij L L  ͆0 ҅ >&eee膝ꤸ ML#gL )WHLC L , Ɇ ɀL  , ҅LзLgş堰G L & & &  '(121)(122)256316yi<>zi=i??><>=?>BPݱ>BL@ /@i ipm@8e@@AiA8ϥ_^8LKLK  RENUMBER:= DO NOT CHANGE LINE 1205] IT IS CALLED BY EXECFILE4)"RENUMBER IS INSTALLED AND READY":"IF YOU USE 'FP', 'HIMEM', OR 'MAXFILES""YOU WILL HAVE TO RE-RUN RENUMBER." ' DO NOT CHANGE 10010     FIRST PROGRAM AND"4"TYPE".>:"& HOLD"[H:" NEXT, LOAD THE SECOND PROGRAM."R"YOU MAY RUN OR RENUMBER THIS PROGRAM"\"AS NEEDED."f:" THEN, TO MERGE THE TWO TYPE"p:"& MERGE"z3860TT)"MERGE"PT)"PAGE 7 " 39 PRINT A"2"99 RETURN 45 RETURN"<3860ZTT)"MERGE"PT)"PAGE 6 "`" THIS PROGRAM CAN ALSO MERGE" "THE BASIC PROGRAM IN THE HOLD FILE TO""TO THE BASIC PROGRAM IN MEMORY." *:" FIRST, LOAD THE :"1 INPUT X 1 INPUT X"N"2 IF X<1 THEN 1 2 IF X<1 THEN 1"{"3 ON X GOSUB 39,87 3 ON X GOSUB 39,30""27 END 27 END""39 PRINT A 30 PRINT A * A""45 RETURN 35 RETURN""87 PRINT A * A TO RENUMBER PART OF A PROGRAM,"GX"YOU MUST SPECIFY WHICH PART BY"rb:" START SETS THE FIRST LINE AND"l" END SETS THE LAST LINE TO BE"v" RENUMBERED":"& FIRST 30, START 87, END 99":"OLD NEW"$"/"3 ON X GOSUB 39,87 60 ON X GOSUB 65,75"T"39 PRINT A 65 PRINT A"x"45 RETURN 70 RETURN""87 PRINT A * A 75 PRINT A * A"&"99 RETURN 80 RETURN"03860:TT)"RENUMBER"PT)"PAGE 5 "D!N" THE STEP TO THE NEXT LINE"2" NUMBER"c:" YOU CAN SET THE NEW FIRST LINE AND""LINE INCREMENT TO ALMOST ANY VALUE.":"OLD NEW":"1 INPUT X 50 INPUT X""2 IF X<1 THEN 1 55 IF X<1 THEN 50$h"45 RETURN 60 RETURN"Mr"87 PRINT A * A 70 PRINT A * A"q|"99 RETURN 80 RETURN"{3860TT)"RENUMBER"PT)"PAGE 4 ""& FIRST 50, INC 5":" FIRST SETS THE FIRST NEW LINE NUMBER"" INC SETSTEN AND GOING BY TENS."9,::"OLD NEW"`6:"1 INPUT X 10 INPUT X"@"2 IF X<1 THEN 1 20 IF X<1 THEN 10"J"3 ON X GOSUB 39,87 30 ON X GOSUB 50,70"T"27 END 40 END"^"39 PRINT A 50 PRINT A"" IT WILL DESTROY RENUMBER!"-3860NTT)"RENUMBER"PT)"PAGE 3 "T" THIS PROGRAM CAN RENUMBER ALL OR""PART OF A BASIC PROGRAM. BY TYPING":"& ":"IT WILL RENUMBER THE ENTIRE PROGRAM"""STARTING AT A R R N N I N N G G"P "W W A A R R N N III N N GGG "X 13{ " DO NOT PRESS RESET" :" DURING RENUMBER OR MERGE" :" IT WILL DESTROY YOUR PROGRAM!" :" ALSO DO NOT USE 'MAXFILES'"#:AGE 2 "6 Z"W W A RRRR N N III N N GGG "e d"W W A A R R N N I N N G G" n"W W A A R R NN N I NN N G " x"W W W AAAAA RRRR N N N I N N N G " "W W W A A R R N NN I N NN G GG"! "WW WW A ERROR MESSAGES"1 "13 OTHER MESSAGES"G "14 NOTES"] "15 NOTES"s "16 NOTES"{ 23 "PRESS RETURN TO RUN RENUMBER" "HIT ANY KEY FOR INSTRUCTIONS"; (A$ 2(A$)3Ā <(A$)133950 F PPT)"P"0 " 6 MERGE 14 USAGE NOTES"_ " 7 MERGE 15 USAGE NOTES" " 8 SYNTAX 16 USAGE NOTES" 1290 "9 INPUT SYNTAX" "10 ERROR MESSAGES" "11 ERROR MESSAGES" "12 PAGE TITLE " VI `" 1 CONTENTS 9 SYNTAX "w j" 2 WARNING 10 ERROR MSGS" t" 3 RENUMBER 11 ERROR MSGS" ~" 4 RENUMBER 12 ERROR MSGS" " 5 RENUMBER 13 OTHER MSGSm% RENUMBER*::255:TT15:PT34t"&";05);"APPLESOFT RENUMBER INSTRUCTIONS";40);"&";z$"&";4);"COPYRIGHT 1980 APPLE COMPUTER INC";40);"&";.::8BTT)"CONTENTS"PT)"PAGE 1 " L"PAGE TITLE                "."QU((IN$,3,J3)):440" J5 QU((IN$,3))J QU0İ1500:460g IG1ICIC1:IVQU:IG0m  ** MOVE TURTLE ** 700 B1TUTU180 X1X(TUCV)QU.00005:Y1Y(TUCV)QU.00005 X19Y19X1270Y1139580 DR0 WITH A COMMA."  $ A,B* 1 5B I11500:Id "PLEASE SOLVE THIS PROBLEM:"u I11500:I{ 10:15 A;" + ";B;" = ";  C DAB  15:12 "CDĺ"GOOD JOB ";A$;"!" $I13000:I '9 TO PLOT TWO POINTS ON THE HIGH RESOLUTION SCREEN.A:H3T(50,100`2200,50<24:7:"PRESS ANY KEY TO CONTINUE";FZ$P:Zr= TO START PRINTING TEXT ON THE 10TH LINE OF THE SCREENCK10j("UNIVERSITY OF WISCONSIN"p2  GOSUB1A+ 10);"YOU ARE NOW IN GOSUB1A"1 7 G9# HOW A NESTED GOSUB WORKS 6 MAIN PROGRAM]"YOU ARE NOW IN THE MAIN PROGRAM"e(702"YOU ARE BACK IN THE MAIN PROGRAM"<150F GOSUB1P5);"YOU ARE NOW IN GOSUB1"Z120d5);"YOU HAVE RETURNED TO GOSUB1"n x:$ 4);J;16);"$";I;31);"$";P+ J2 K8  AOOPS ARE USED TO COMPUTE THE INTEREST EARNED AND THE TOTAL VALUE OF THE INVESTMENT] K1Ye : "REPORT FOR YEAR #";K : "QUARTER #";12);"TOT. INTEREST";28);"TOT. SAVINGS" J14 IPR.25 I(I100.5)100 PPI Y COMPOUND INTEREST AND THE VALUE OF THE INVESTMENT."= 2:d <"WHAT IS THE PRINCIPAL INVESTED";k FPs P: Z"WHAT IS THE INTEREST RATE (ENTER IN DECIMAL FORM.)"; dR n: x"HOW MANY YEARS WILL THIS BE INVESTED"; YR NESTED L:N TO COMPUTE QUARTERLY COMPOUND INTEREST AND THE VALUE OF THE INVESTMENT THE USER INPUTS THE PRINCIPAL INVESTED, P, THE INTEREST RATE, R, AND THE NUMBER OF YEARS INVESTED, Y.:5 ("THE PURPOSE OF THIS PROGRAM IS TO COMPUTE THE QUARTERL    & "BASIC IS FUN AND EASY"$  *WI6:TA7<X2X1((TUCV))WI:Y2Y1((TUCV))WIhX3X1((TUCV))TA:Y3Y1((TUCV))TAX4X1((TUCV))WI:Y4Y1((TUCV))WIX5X2((X3X2)2):Y5Y2((Y3Y2)2)X6X3((X3X4)2):Y6Y3((Y3Y4)2)BTX2,Y2:CTX3,Y3:DT60QU:LE0?l(QU)360QU((QU360(QU360))360.05)(QU)SvTUTUQU:800:j * ERASE TURTLE *T1TT1:T2ı0X2,Y2:X3,Y3:X4,Y4:X5,Y5:X6,Y63 * DRAW TURTLE * T1ı*900: * TURTLE LOCATION555 &X,YX1,Y1% +B1TUTU1807 0B0:XX1:YY1B :800: D:22:"THE TURTLE WOULD BE OUT OF BOUNDS. TRY A DIFFERENT MOVE. ":2700:X1X:Y1Y:B1B0:TUTU180 N:800:40 W * TURN TURTLE * X700 bLE1QU3 i10:16:"LOADING":::12:" ":12:"TURTLE GRAPHICS":12:" ":::13:"PLEASE WAIT..."~D$(4): CTRL D(D$;"RUN TURTLE GRAPHICS"2 ) TO DRAW A LINE BETWEEN TW0 POINTS1:83I(0,0159,159v224:7:"PRESS ANY KEY TO CONTINUE";:Z$~<: Z ZNUE";:Z$::< ZP, TO START PRINTING TEXT IN COLUMN 20"2:20H("SAMPLE"N2 HC0150 "ZERO DIVISOR"% 160; 4);C;15);C1CA C) TO INPUT 3 NUMBERS, ONE AT A TIMES AND TO PERFORM A CALCULATION USING e THE NUMBERSlAyA050"ZERO DIVISOR"(6024);A;15);A1A<BFB0100P"ZERO DIVISOR"Z110d4);B;15);B1BnC x   SUM OF THREE GRADES%G(3)1G(1)90=G(2)84I(G(3)92^2SG(1)G(2)G(3)f7:<"THE SUM OF THE GRADES IS ";SF"THE GRADES ARE ",G(1);" ";G(2);" ";G(3)P A g" - PRINT STATEMENT EXAMPLESC"B A S I C IS FUN AND EASY"I_("YOU'LL LIKE IT"e2 $(PI):::1900> :22:"I DON'T UNDERSTAND ";IN$:2700:40L 807:280R :p +** PARSE INSTRUCTIONS ** ,J1((IN$)1) 6(IN$,J,1)"."IN$(IN$,((IN$)J)):60 @J J40 ** DETERMINE QUANTITY ** J1(IN$) (IN$,J,1)I$"PD"DR1:300, I$"NT"T1:700:300G I$"TU"T0:800:300_ I$"HO"İ1600:300v I$"CL"İ1700:40 I$"FI"2000 I$"RS"İ3100 I$"ED"1800 I$"RA"ī3000 I$"QU"ĉ:: I$"IN"IG1:400:300 BP1ED$PI27Ĺ16368,0:40, dI$"FD"İ400:500:300L nI$"BK"B1:400:500:300h xI$"RT"İ400:600:300 I$"LT"LE1:400:600:300 (IN$,1)">"1100 I$"RA"2705 I$"DO"1300 I$"//"D(C)D(C)1:1470 I$"PU"DR0:300 16400:::2800::800?(:FCFC1:FC25FC(1):FC0M*16368,0-22:"WHAT DO YOU WANT THE TURTLE TO DO? ";IN$2BP0:VC0:IV0:IC0:C0:285<IN$""40F(IN$,1)"."IN$(IN$,((IN$)1))PI$(IN$,2) ZKY(16384):KY1/ LINE PATTERN USING HPLOT X1,Y1 TO X2,Y27:>3M(L11505\2250,1L,Ly< LINE 70 CAUSES A PAUSEFT1100:TPLZ24:7:"PRESS ANY KEY TO CONTINUE";:Z$d::n 8 TO PRINT A MESSAGE NEAR THE CENTER OF THE SCREEN>E8L(9k2"UNIVERSITY OF WISCONSIN"s<14{F14P"RIVER FALLS"Z Y4);C;15);C1C 6 PUT IN NEW SUB GOSUB3A E* HOW TO USE A SUBROUTINE REPEATEDLY1 A9XAB110I(BQ2XBZ<110aFCiPXCrZ110{d150i START OF SUBROUTINEnX0130s"ZERO DIVISOR"x4);X;15);X1X "ZERO DIVISOR"160   " PRINT OUT A LIST OF GRADES,G(6)7K16AG(K)H(KP2S0[<K16hFSSG(K)oPKwU:Z"THE SUM OF THE GRADES IS ";S_:d"NUMBER","GRADE":nK16xK,G(K)K 78,89,82,90,79,86 K f" - NUMERIC PRINT STATEMENTS+43443=(43F243O<43^F"4+3",43dP  *WI6:TA7<X2X1((TUCV))WI:Y2Y1((TUCV))WIhX3X1((TUCV))TA:Y3Y1((TUCV))TAX4X1((TUCV))WI:Y4Y1((TUCV))WIX5X2((X3X2)2):Y5Y2((Y3Y2)2)X6X3((X3X4)2):Y6Y3((Y3Y4)2)BTX2,Y2:CTX3,Y3:DT60QU:LE0?l(QU)360QU((QU360(QU360))360.05)(QU)SvTUTUQU:800:j * ERASE TURTLE *T1TT1:T2ı0X2,Y2:X3,Y3:X4,Y4:X5,Y5:X6,Y63 * DRAW TURTLE * T1ı*900: * TURTLE LOCATION555 &X,YX1,Y1% +B1TUTU1807 0B0:XX1:YY1B :800: D:22:"THE TURTLE WOULD BE OUT OF BOUNDS. TRY A DIFFERENT MOVE. ":2700:X1X:Y1Y:B1B0:TUTU180 N:800:40 W * TURN TURTLE * X700 bLE1QU3"."QU((IN$,3,J3)):440" J5 QU((IN$,3))J QU0İ1500:460g IG1ICIC1:IVQU:IG0m  ** MOVE TURTLE ** 700 B1TUTU180 X1X(TUCV)QU.00005:Y1Y(TUCV)QU.00005 X19Y19X1270Y1139580 DR0NY KEY TO CONTINUE";:Z$" ::( *& AN EXAMPLE OF SIMPLE ANIMATION.:;I1100B(3^2 A WHITE LINE IS DRAWNt<10,100100,100IF A SLIGHT PAUSEPT150:TZ THE LINE IS ERASED BY REPLOTTING IT IN BLACKd0:10,100100,100InI x24:7:"PRESS AU X1193%(YX2,2X3<YFF"RIVER FALLS"MPXSZ X20 X 2,2 1 USING A COMPUTED GOSUB TO PRINT A PATTERN:X,Y@H(I1Y2I90,140,90c<II1pFI3200xP50Z SUBROUTINE AdJ1Xn"**** **** ****"xJ SUBROUTINE BJ1Y" **** ****"J   $ PRINT OUT A SPECIFIED NUMBER/X(12);K112E(X(K)L2Kt< -2,13,17,9,11,34,46,-87,12,21,0,3|A:F"WHICH NUMBER (1-12) WOULD YOU LIKE";PJZ"THE ";J;" TH NUMBER IS ";X(J)d65n K `  - MATHEMATICAL HIERARCHY+3498(34)9E(3(49)X23423423^< C)(IN$,J1,LJ1)9L(IN$)SB$(C)(IN$,L2):1450GSB$(C)""`D(C)((IN$,3,J3))yIN$SA$(C)".//":60D(C)0SB$(C)""C0:40D(C)0IN$SB$(C):SB$(C)"":CC1:60IN$SA$(C)".//":60 * VARIABLE FUNCTION *VCVI)"."IN$:BP1:60/ * REPEAT FUNC. (D0) *9CC1IJ1(IN$)b((IN$,J,1)"("1350i2Jx<CC1:280FL(IN$)11P(IN$,L,1)")"1390ZLdCC1:280nL1JLx(IN$,L1,1)")"1420L1L1LLL1SA$((IN$,((IN$)J)):1160tJ5~PI$(PI)IN$:IN$""EI0(PI1)xPI$(I)PI$(PI)IN$FI$(I)"."IN$:PIPI1:60I:22:"I DON'T KNOW HOW TO ";PI$(PI)::"PLEASE TELL ME HOW"2700:22:"TO ";PI$(PI);:" ";FI$(PI)IN$FI$(PX4,Y4:ETX5,Y5:FTX6,Y6+BT1Y2170<CT1Y3170MDT1Y4170^ET1Y5170oFT1Y6170X2,Y2:X3,Y3:X4,Y4:X5,Y5:X6,Y6: * CHECK FOR PICTURE *LPIPI1`J1((IN$)1)j(IN$,J,1)"."PI$(PI)(IN$,J1):IN$Љ: IJ)10- J3J4Y(J)Y(J)104 J; Ip 24:7:"PRESS SPACE BAR TO CONTINUE";:Z$:::v I 4 TO DRAW A CONTINUOUS LINE USING HPLOT TO X,Y<:C3L(0,0X2I120< RANDOM NUMBERS ARE GENERATED FOR X AND YFX((1)280)PY((1)160)ZX,YdT1100:TnIx24:7:"PRESS ANY KEY TO CONTINUE";:Z$ :[% TO INTRODUCE THE TAB FUNCTION+310E(20)"SAMPLE"T260)"RUN"Z<O\" - HELLO FOLLOWED BY A NAME;"WHAT IS YOUR NAME"CN$T("HELLO ";N$Z2 I D(I)S(I)A I :9 "STUDENT","SCORE","DIFF."G "NUMBER"M X J1Ni J,S(J),D(J)p Jy 15 78,80,60,100,72,40,90,85,90,100,35,70,65,100,75 N4 FIND THE AVERAGE SCORE OF A LIST OF N SCORESl AND THE DIFFERENCE BETWEEN EACH SCORE AND AVERAGE}S(20),D(20)(N-I1N2S(I)7I<T0FK1NPTTS(K)ZKdATNn"THE AVERAGE SCORE IS ";AxI1N   , - ASSIGNMENT OF NUMBERS TO VARIABLES4A7<B9F(CABQ<A,B,CdFA;" ";B;" ";CsPAB,C,ABZ"A+B","C","A*B"d T20PIPRTZ"INTEREST = ",Id  GRAPHICS MODE"S22:40):22:"TYPE THE NUMBER OF YOUR CHOICE. ";OP$:OP(OP$)gOP1OP52030OP2060,2190,2320,2380,2630 PI0ė:12:"THERE ARE NO PICTURES TO SAVE":2700:20002620 :12:15::"SAVING":*D$;"OPEN ";NA$):26405:"OPTIONS AVAILABLE: <1> SAVE PICTURES TO A FILE <2> RETRIEVE PICTURES FROM A FILE <3> DELETE A FILE""<4> CATALOG AND INDEX FILES <5> RETURN TOl::10:"* PICTURE EDITOR *":?v:::"EDITING:";::ED$s::"THE INSTRUCTIONS FOR THIS PICTURE ARE:"::FI$(I):15:"WHAT SHOULD THEY BE?":17:2:FI$(I)17:FI$(I)IN$"CL":50 * FILING SYSTEM *::D$(4:YY1:800:! * CLEAR (CL) *<:X139:Y79:X1X:Y1YUTU0:T0:DR1:800:n * PICTURE EDITOR *v:J1(IN$)(IN$,J,1)">"1850&J0280:ED$(IN$,J)DI1PINPI$(I)ED$ė:1900XIbIN$ED$:1100!C1VA$(VC)(IN$,3,J3)*L0VC1ZVA$(L)VA$(VC)QUVA(L)IVIC:VCVC1:460aL:22:"WHAT IS THE VALUE OF ";VA$(VC);:VA(VC)QUVA(VC):? * HOME *@700:XX1:YY1:X1139:Y179JDR01630TX,YX1,Y1 ^TU0:XX1 dJ4 n24:7:"PRESS ANY KEY TO CONTINUE";:Z$> x::D J:P J::_ JE& TO DRAW CONCENTRIC RECTANGLES .:53D(J08010_2 A RECTANGLE IS DRAWN<J,J279J,J279J,159JJ,159JJ,JF A PAUSE IS PUT INPT1100:T Z J IS INCREASED BY 10 TO GIVE THE CORNERS OF THE NEXT RECTANGLE IN LINE 60Z, USE OF A VARIABLE AS ARGUMENT OF TAB2>N124K(N);"X"R2NX< N A$"HELLO"A$( T ! PRINT OUT A SET OF GRADES(N<K1N:G(K):KD(S0O2K1N\<SSG(K)cFKkK:P" THE SUM OF THE ";N;" GRADES IS ";SU:Z"NUMBER","GRADE":dK1N:K,G(K):K:n 6x 78,89,82,90,79,86 N  COMPUTE SIMPLE INTERESTF R THE RATE OF INTEREST (DECIMAL)\ T TIME IN YEARSy( P PRINCIPAL IN DOLLARS2P1000<R.06FT20PIPRTZ"INTEREST = ",Id MERTAIN FILE? ";K$:*j (K$,1)"Y"20004t 2620U~ :12:14::" SEARCHING ":_ 2500m :L1NU PX$(L);": ";FX$(L) 2600: L 2590:2000 D$;"OPEN ";NA$ D$;"READ ";NA$ NU I1NU PX$(I):FX$(I) I620  ::"ARE YOU SURE? ";K$7$ (K$,1)"Y"2000W. ::12:14:" DELETING ":m8 D$;"DELETE ";NA$wB 2000L :"YOUR FILE ENTRIES ARE PRECEDED BY A ";(34);"T";(34)V D$;"CATALOG"` ::"DO YOU WANT TO SEE WHICH DRAWINGS ARE IN A C:"IF YOU WISH TO CONTINUE, PRESS 'C' PRESS ANY OTHER KEY TO RETURN TO FILE ACCESS OPTIONS."lK$~K$"C"20002620::12:14:"RETRIEVING":2500PINUI1PIPI$(I)PX$(I):FI$(I)FX$(I)I 2000 24D$;"DELETE ";NA$)>D$;"OPEN ";NA$>HD$;"WRITE ";NA$FRPIR\I1PIffPI$(I):FI$(I)mpIzD$;"CLOSE ";NA$2000:5::"WARNING:":"RETRIEVING A FILE WILL DESTROY ANY PICTURES YOU CURRENTLY HAVE IN MEMORY."d FX0279S PX,0X,159# ZXh d24:"PRESS ANY KEY TO RUN AGAIN, PRESS ESC TO END PROGRAM";:Z${ n(Z$)27ī20 x:::CEN IS CLEARED TO BLACK AND THE PROGRAM STARTS OVER :20 :: CS TO DEMONSTRATE SOME OF THE LIMITATIONS OF COLOR IN HIGH RESOLUTION GRAPHICS[:~22:"INPUT COLOR # (0-7) ";C(C223:"INPUT STEP SIZE ";S< VERTICAL LINES ARE DRAWN USING COLOR#C AND SPACED APART BY THE STEP SIZE - S UNITS ^+ TO SPACE OVER USING THE SPC COMMAND1910V(10);"SAMPLE";5);"RUN"\2 ( MULTIPLE STRING INPUT AND OUTPUTH"WHAT IS YOUR FIRST NAME";PF$o("WHAT IS YOUR LAST NAME";w2L$<C$"HELLO"FKC$,F$,L$P F  2,1,-1,0 R% READ IN AND PRINT OUT A TABLE1T(3,4)<R13G(C14S2T(R,C)Z<CaFRiK:P"TABLE WITH 3 ROWS AND 4 COLUMNS":ZR13dC14iXX10nT(R,C);sXxCX0R 4,8,6,2 10,9,5,4  & SIMPLE INTEREST AS TIME VARIESM R THE RATE OF INTEREST (DECIMAL)c T TIME IN YEARS( P PRINCIPAL IN DOLLARS2P1000<R.06F"TIME OF LOAN (IN YEARS)"KTPIPRTZ"INTEREST = ";Id J, 32,227,223,133,133,132,134,169,208,32T" 192,222,165,18,72,165,17,72,32,185z5 246,32,17,244,165,48,49,38,240,26 169,1,168,32,1,227,76,91,218 ; 104,168,104,166,223,154,72,152,72,96: ERROR TRAP SUBROUTINE FROM P.82 OF APPLESOFT MANUAL. ST000 * TIME DELAY *+ H11000:H:? :RAN ANGLE GENX VA(VC)(369(1))1` 40z * SET UP VARIABLES * TU0:X139:Y79:CV3.14159265180:DR1:3 PI$(100):FI$(100):PI0:PX$(100):FX$(100) 16301,0 J768816:K:J,K: D$;"CLOSE ";NA$ * 2590:2000W 24:5::"PRESS ANY KEY TO CONTINUE";:k( K$:K$""2600q2 < :12:"FILE NAME? ";NA$:F IN$"CL":60P 807:(222)5ĺD$;"DELETE ";NA$Z :12:"CHECK YOUR FILE NAME AND TRY AGAIN.":2700:2100,100,150,100,150,100,150,150,150,150,100,150,100,150,100,100M :::CN! TO 'DOUBLE PLOT' A SQUARE):/V(21:"INPUT COLOR NUMBER(0-7) ";C]2Ch<I14uFA,B,C,DPA,BC,DZA1,B1C1,D1dIn24:"PRESS ANY KEY TO RUN AGAIN, PRESS ESC KEY TO END PROGRAM";:Z$x(Z$)27ī20A \; TO PLOT A POINT ON THE SCREEN AT THE POSITION 10,10AI15T(10,10Z2  COMPARISON OF STRINGSE"DO YOU PREFER WINTER OR SUMMER ";M(A$a2A$"WINTER"90v<A$"SUMMER"110F"PLEASE ANSWER THE QUESTION CORRECTLY."P30Z"I PREFER SUMMER"d120n"SO DO I "x AA 0 NUMBER OF THE ROW OR 0 TO STOP":* _:9 d"ROW = ";@ nRK xR0ĀV C1M` XX5m T(R,C);t X{ C X0 :: 100 5,7 12,14,8,7,0,1,3,16,11,0,2,7,3,1,0,0,9 12,14,6,2,7,3,0,0,1,1,9,10,12,3,1,2,1,0 3 PROGRAM TO DISPLAY A DESIRED ROW OF A TABLEAT(10,20)JN,MR:#"TABLE WITH ";N;" ROWS AND ";M;" COLUMNS":$X0(R1N2C1M7XX5<T(R,C)AT(R,C);BXFCKLX0PRU:" Z"ENTER THE    \" - HELLO FOLLOWED BY A NAME;"WHAT IS YOUR NAME"CN$T("HELLO ";N$Z2 YAR @ 1013,76:1014,0:1015,3/ J X1X:Y1Y:@ TO DRAW A SEMICIRCLE$:+75(H140>2K80G<R40RFHR,KaPXHRHR~ZY((R2(XH)2)0.5K)dX,YnXx24:7:"PRESS ANY KEY TO CONTINUE";:Z$:: X& TO DRAW A SIMPLE DIAGONAL LINE,415@(X039I2X,XP<XVF ITE COLOR" Z C. COMPARISON OF STRINGS -PART 2 R"WHAT IS YOUR FAVORITE COLOR";Z(C${2"WHAT COLOR ARE YOUR EYES";<E$FC$E$ĺ"YOUR EYE COLOR IS YOUR FAVORITE COLOR ";C$;" ." PC$E$ĺ"YOUR EYES ARE NOT THE SAME COLOR AS YOUR FAVORCOLUMN NUMBER OR 0 TO STOP"# _:5 d"COLUMN = ";< nCG xC0ĀR R1N^ T(R,C)e Ro ::x 100 5,7 12,14,8,7,0,1,3,16,11,0,2,7,3,1,0,0,9 12,14,6,2,7,3,0,0,1,1,9,10,12,3,1,2,1,0 7 PROGRAM TO DISPLAY A DESIRED COLUMN OF A TABLEET(10,20)NN,MV:#"TABLE WITH ";N;" ROWS AND ";M;" COLUMNS":$X0(R1N2C1M7XX5<T(R,C)AT(R,C);BXFCKLX0PRU: Z"ENTER   "; dP2 n"ENTER INTEREST RATE AS A DECIMAL";9 xRU "ENTER TIME IN YEARS";\ Th IPRTp : "OKAY ";N$;" THE INTEREST IS ";I   GENERAL INTEREST PROGRAMG R THE RATE OF INTEREST (DECIMAL)] T TIME IN YEARSz( P PRINCIPAL IN DOLLARS2:<"WHAT IS YOUR NAME";FN$K:PN$;" THIS PROGRAM CALCULATES SIMPLE INTEREST" Z"ENTER PRINCIPAL IN DOLLARS ; K$ K$;" "; L$- L$;" ";4 IH D$;"CLOSE MI5"N  :P READS FILE MI5*D$"": CTRL D=D$;"OPEN MI5"P(D$;"READ MI5"W2Nb<NN10jFS$rPS$}ZI1NdA$nA$;" ";xB$B$;" ";G$G$;" ";H$H$;" ";I$I$;" ";J$ J$;" "  )18T ,CDĺ"SORRY ";A$;" THE CORRECT ANSWER IS ";D;". ";A;" + ";B;" = ";De 1I13000:Il 6Er ;x @ J10 T"IF HAS BEEN FUN ADDING WITH YOU, ";A$;". HAVE A NICE DAY!" ^EMORY Z232,0 d233,64/ n DRAW SHAPE 15 x< 3C = F < U ==<< =<< 24:7:"PRESS ANY KEY TO CONTINUE";:Z$ :: = TO DRAW A SHAPE THAT HAS BEEN STORED IN A SHAPE TABLEX CHR$(4) IS CONTROL-DdD$(4)( THE SHAPE TABLE IS LOADED FROM DISK INTO MEMORY28192<D$;"BLOAD SHAPES"F P TELL THE COMPUTER WHERE THE SHAPE TABLE IS LOCATED IN M   MOVING POINT:(Y0390(13:220,YJ<I1100:IQF0[P20,YbZYd24:"PRESS ANY KEY TO CONTINUE";:Z$::nY ' PROGRAM TO USE THE LEN FUNCTIONF"WHAT IS YOUR FULL NAME";N(N$2"YOUR NAME HAS ";(N$);" LETTERS & SPACES IN IT."< N  }:" ZZ³µlZ³Zva0!@0Ja0!T0(Ỵ̄eCy R,S R 5,7 12,14,8,7,0,1,3,16,11,0,2,7,3,1,0,0,9 12,14,6,2,7,3,0,0,1,1,9,10,12,3,1,2,1,0 - PROGRAM TO TABULATE SALES INFORMATION;T(10,20)DN,ML#:t(10);"HUGE POWER COMPUTER COMPANY"214);"MONTHLY SALES REPORT":7X0<R1NFC1MKXX5PT(R,C)ZT(R,C);_XdCn::sX0xR  AREA OF A RECTANGLE#:N"PROGRAM TO FIND AREA OF A RECTANGLE"Tw"ENTER THE LENGTH AND WIDTH";(L,W2"THE AREA IS ";LW<25F : (IN$,((IN$)J)):1160tJ5~PI$(PI)IN$:IN$""EI0(PI1)xPI$(I)PI$(PI)IN$FI$(I)"."IN$:PIPI1:60I:22:"I DON'T KNOW HOW TO ";PI$(PI)::"PLEASE TELL ME HOW"2700:22:"TO ";PI$(PI);:" ";FI$(PI)IN$FI$(PX4,Y4:ETX5,Y5:FTX6,Y6+BT1Y2170<CT1Y3170MDT1Y4170^ET1Y5170oFT1Y6170X2,Y2:X3,Y3:X4,Y4:X5,Y5:X6,Y6: * CHECK FOR PICTURE *LPIPI1`J1((IN$)1)j(IN$,J,1)"."PI$(PI)(IN$,J1):IN$ 25:"LEE HILL"-25:"CPTS MIDTERM"C25:"QUESTION 3"[(25:"JUNE 30, 1983e2::k<rF8~P7,114Z7d8,6n10,6x117,811,88,109128,10117,11127,1113 !% PUTTING INFORMATION ON A FILEZD$"": THERE IS A CONTROL-D BETWEEN THE QUOTESnD$;"OPEN NUM1"(D$;"WRITE NUM1"24<7F10P13Z16d19n22x9999D$;"CLOSE NUM1""INFORMATION IS NOW ON FILE" ! ! P A COUNTING DEVICE'"NUMBER"/X06(X@2XX1H<40NF !C1VA$(VC)(IN$,3,J3)*L0VC1ZVA$(L)VA$(VC)QUVA(L)IVIC:VCVC1:460aL:22:"WHAT IS THE VALUE OF ";VA$(VC);:VA(VC)QUVA(VC):? * HOME *@700:XX1:YY1:X1139:Y179JDR01630TX,YX1,Y1 ^TU0:XX1C)(IN$,J1,LJ1)9L(IN$)SB$(C)(IN$,L2):1450GSB$(C)""`D(C)((IN$,3,J3))yIN$SA$(C)".//":60D(C)0SB$(C)""C0:40D(C)0IN$SB$(C):SB$(C)"":CC1:60IN$SA$(C)".//":60 * VARIABLE FUNCTION *VCVI)"."IN$:BP1:60/ * REPEAT FUNC. (D0) *9CC1IJ1(IN$)b((IN$,J,1)"("1350i2Jx<CC1:280FL(IN$)11P(IN$,L,1)")"1390ZLdCC1:280nL1JLx(IN$,L1,1)")"1420L1L1LLL1SA$(ԠӠ¬¬"